<?php
require_once $_SERVER['DOCUMENT_ROOT'] . '/proyecto/clases/autoload.inc.php';
if(Zen::IniciarSesion()){
 $debug=false;
 
 $tabla = 'aranceles';
 $record = array();
 $fecha_actual = date('Y-m-d');
 $val_convenio = $_POST['valor'];
 $val_paciente = $_POST['valor_pac'];
 $convenio = strtolower($_POST['rutc']);
 $examen = strtolower($_POST['examenc']);
 $tipo_atencion = $_POST['tipo_atencion'];
 $nombre_convenio = strtoupper($_POST['nombrec']);
  
  //CONSULTA SI TIENE CONTRASTE EL EXAMEN
 $cons_cont=Examenes::getInstancia($examen); 
 $res_cont= $cons_cont->ex_contraste;
 if ($res_cont=='T') $val_contraste = $_POST['valor_con'];   
 else $val_contraste = 0;
 
 
 //CONSULTA VALOR DEL EXAMEN EN FONASA
 $sql="select ara_valor_exa_conv from aranceles as a join convenios as c on a.con_rut = c.con_rut where lower(c.con_nombre) = 'fonasa' and a.tia_id = $tipo_atencion and a.ex_codigo = '$examen' ";
 $result = Zen::Consulta($sql,$debug);
 foreach($result as $k => $record) 
 {
        $val_fonasa = $record['ara_valor_exa_conv'];
 } 
 

  
 
 //CONSULTA VALOR IVA
 $result_iva=Config::getInstancia('iva'); 
 $iva_num= $result_iva->valor_float;
 $iva_porc = ($iva_num / 100);

 //PARA EL VALOR AFECTO, VARIABLE $AFECTO
 if ($nombre_convenio == 'FONASA') $afecto = 0; 
 else $afecto = $val_convenio - $val_fonasa ;
 
 //PARA EL VALOR EXENTO, VARIABLE $EXENTO
 if ($nombre_convenio == 'FONASA') $exento = $val_convenio; 
 else $exento = $val_fonasa ;
 
 //PARA EL VALOR NETO, VARIABLE $NETO
 if ($afecto > 0) $neto = $afecto / ($iva_porc + 1 ) ;
 else $neto = 0;
 

 //PARA EL VALOR IVA, VARIABLE $IVA
 if ($afecto > 0) $iva = $neto * ($iva_porc);
 else $iva = 0;
 
 //PARA EL VALOR HONORARIO, VARIABLE $HONORARIO
 $honorarios = $exento + $neto ;




 /* OBLIGATORIOS */
 $record["tia_id"] = $tipo_atencion;
 $record["ex_codigo"] = $examen;
 $record["con_rut"] = $convenio ;
 $record["ara_fecha_act"] = $fecha_actual;
 $record["ara_valor_exa_conv"] = $val_convenio; //valor examen a secas
 $record["ara_valor_exa_pac"] = $val_paciente ; // valor examen que paga el paciente
 $record["ara_valor_con_pac"] = $val_contraste; // valor de contraste que paga el paciente siempre se paga (el bono no lo cubre)
 $record["ara_valor_exento"] = $exento  ; //
 $record["ara_valor_afecto"] = $afecto  ;
 $record["ara_valor_neto"] = $neto  ;
 $record["ara_valor_iva"] = $iva ;
 $record["ara_valor_honorario"] = $honorarios  ;
 

 $insertSQL = Zen::AutoSql($debug, $tabla, $record, 'INSERT' ) ;
    
 $json = new Services_JSON() ;

 if ( $insertSQL && Zen::FilasAfectadas() === 1 )
 {
 	$datos = array( 'error' => 'ok' ) ;
 	$datos['filas'] = 'Numero de filas afectadas: ' . Zen::FilasAfectadas() ;
 	$salida = $json->encode( $datos ) ;
 	echo $salida ;
 }
 else
 {
 	$e = ADODB_Pear_Error() ;
    $datos['filas'] = Zen::FilasAfectadas() ;
 	$datos['detalles'] = $e->message;
    //$datos = array( 'error' => 'mal' ) ;
 	$salida = $json->encode( $datos ) ;
    echo $salida ;
 }
 }
else
{
 Zen::LogoutModulo();
}
 

?>